*THIS FILE CONSTRUCTS FIGURE 1 IN THE PAPER.
clear
use figure1.dta

twoway (line VoteShareDNA year if fla==1, title("Vote share Ap (local elections)") ytitle("Vote share Ap") legend(order(1 2) label(1 "Flå" )region(lwidth(none))) xtitle("Year") color(black) graphr(color(white)) plotregion(style(none)))(line mvote_ap year,color(black) lp(dash)legend(order(1 2) label(2 "Rest of Norway" )region(lwidth(none)))) (scatteri 0 1995 .6 1995,  c(l) lp(dash_dot ) lw(thin) m(i)legend(order(1 2) region(lwidth(none))))
graph save Graph "ap_local.gph", replace
graph export "ap_local.pdf", as(pdf) replace

twoway (line l2VoteNatDNA year if fla==1, title("Vote share Ap (national elections)") ytitle("Vote share Ap") legend(order(1 2) label(1 "Flå" )region(lwidth(none))) xtitle("Year") color(black) graphr(color(white)) plotregion(style(none)))(line ml2votenat_ap year,color(black) lp(dash)legend(order(1 2) label(2 "Rest of Norway" )region(lwidth(none)))) (scatteri 0 1995 .6 1995,  c(l) lp(dash_dot ) lw(thin) m(i)legend(order(1 2) region(lwidth(none))))
graph save Graph "ap_national.gph", replace
graph export "ap_national.pdf", as(pdf) replace

graph combine "ap_local.gph" "ap_national.gph"
graph export "ap_figs.pdf", as(pdf) replace
